
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS OFF
GO
      
CREATE PROCEDURE [dbo].[SP_TTPROC_INTE_I01]                                          
/*---------------------------------------------------------*/                                          
/*---Empresa              : OFISIS S.A.                  --*/                                          
/*---Cliente              : OFISIS --*/                                          
/*---Sistema              : Tesoreria                    --*/                                          
/*---M¸dulo               : Empresa                      --*/                                          
/*---Programa             : Procedimiento Principal      --*/                                          
/*---                       Interfase                     --*/                                          
/*---Script               : ttproc_i.sql                 --*/                                          
/*---Nombre SP            : SP_TTPROC_INTEr_I01           --*/                                          
/*---Desarrollado por     : Javier Flores A.             --*/                                          
/*---Fecha Creaci¸n       : 02/08/1999                   --*/                                          
/*---Base Datos           : Microsoft Sql Server         --*/                                          
/*---Versi¸n              : 7.0                          --*/                                          
/*---Invoca a SP          :                              --*/                                          
/*---------------------------------------------------------*/                                          
                                          
/*---------------------------------------------------------*/                                          
/*---Modificado 1 por         : Reynldo Menacho L.             --*/                                          
/*---Fecha ModELSE IFicaci¸n   : 31/05/2005                     --*/                                           
/*---Detalle Modificaci¸n     : Agregar sp para compromisos de pago --*/                                          
/*---------------------------------------------------------*/                                          
                                          
/*---------------------------------------------------------*/                                          
/*---Comentarios                                         --*/                                          
/*---                                                    --*/                                          
/*---                                                    --*/                                          
/*---------------------------------------------------------*/                                          
                                          
/*---------------------------------------------------------*/                                          
/*---Drop Proc SP_TTPROC_INTE_I01                        --*/                                          
/*---GRANT ALL ON SP_TTPROC_INTE_I01 TO PUBLIC        --*/                                           
/*--- SP_TTPROC_INTE_I01 '01' ,'00000000004', 'FAC', ' 022-0000023223', NULL,NULL,NULL,NULL , 0020000123 , 'I02' */                  
                                         
/*---------------------------------------------------------*/                                          
                                          
@ISCO_EMPR  TD_VC_002,  /* Codigo de la Empresa */                                          
@ISCO_USUA_MODI   TD_VC_008,                                        
@ISPA_0001         TD_VC_020, /* Codigos de prov,bnco,caja,etc.. */                                          
@ISPA_0002        TD_VC_020, /* Numero cnta(Caso Banco u otros)  */                                          
@ISPA_0003         TD_VC_020, /* Numero Comprobantes */                                          
@INPA_ANNO         INTEGER,   /* Parametro AÏo  */                                          
@INPA_MESE         INTEGER,   /* Parametro Mes  */                                          
@IDPA_FECH         TD_DT_001, /* Parametro Fecha  */                                          
@ISNU_ASTO     TD_VC_020,                                          
@ISST_FLAG       TD_VC_010,                                     
@ISCO_UNID_CONC  TD_VC_003,                                          
@ISST_INTE  TD_VC_001                    
                    
As                    
DECLARE                                           
@VSNU_ASTO_0001 TD_VC_010,                                        
@VSCO_OPRC_CONT TD_VC_003,                      
@VDFE_USUA_MODI TD_DT_001                      
                      
SELECT @VDFE_USUA_MODI = GETDATE()                      
                      
SELECT @VSNU_ASTO_0001 = '00000' + Right( @ISNU_ASTO, 5), @VSCO_OPRC_CONT = Left(@ISNU_ASTO, 3)                                          
                    
 /*-------- MODULO BANCOS --------------*/                                          
                                          
/******** COBRANZA DOCUMENTOS POR BANCOS *********/                              
IF @ISST_FLAG = 'I40'                                          
 EXEC SP_TTPROC_INTE_I40  @ISCO_EMPR, @ISCO_USUA_MODI, @ISCO_UNID_CONC, @ISPA_0001, @ISPA_0002, @ISPA_0003, @INPA_ANNO,                  
@INPA_MESE, @IDPA_FECH, @ISNU_ASTO, @ISST_INTE                                          
                                          
/******** ENTREGAS A RENDIR POR BANCOS  *********/                                          
ELSE IF @ISST_FLAG = 'I03'                                          
 EXEC SP_TTPROC_INTE_I03  @ISCO_EMPR,@ISCO_USUA_MODI, @ISCO_UNID_CONC, @ISPA_0001, @ISPA_0002, @ISPA_0003, @INPA_ANNO,                  
@INPA_MESE, @IDPA_FECH, @ISNU_ASTO, @ISST_INTE                                          
                                          
/******** REPOSICION A CAJA DESDE BANCOS  *********/                                          
ELSE IF @ISST_FLAG = 'I05'                                          
 EXEC SP_TTPROC_INTE_I05  @ISCO_EMPR, @ISCO_USUA_MODI, @ISCO_UNID_CONC, @ISPA_0001, @ISPA_0002, @ISPA_0003, @INPA_ANNO,                  
@INPA_MESE, @IDPA_FECH, @ISNU_ASTO, @ISST_INTE                                          
                                          
/******** TRANSFERENCIAS ENTRE CUENTAS BANCARIAS *********/                                          
ELSE IF @ISST_FLAG = 'I06'                                       
 EXEC SP_TTPROC_INTE_I06  @ISCO_EMPR, @ISCO_USUA_MODI, @ISCO_UNID_CONC, @ISPA_0001, @ISPA_0002, @ISPA_0003, @INPA_ANNO,                  
@INPA_MESE, @IDPA_FECH, @ISNU_ASTO, @ISST_INTE                                          
                                          
/******** CANCELACION DOCUMENTOS POR PAGAR X BANCOS *********/                                          
ELSE IF @ISST_FLAG = 'I04'                                          
 EXEC SP_TTPROC_INTE_I04  @ISCO_EMPR, @ISCO_USUA_MODI, @ISCO_UNID_CONC, @ISPA_0001, @ISPA_0002, @ISPA_0003, @INPA_ANNO,                  
@INPA_MESE, @IDPA_FECH, @ISNU_ASTO, @ISST_INTE                                          
                                          
/******** PAGOS MULTIPLES *********/                                          
ELSE IF @ISST_FLAG = 'I64'                                          
 EXEC SP_TTPROC_INTE_I64  @ISCO_EMPR, @ISCO_USUA_MODI, @ISCO_UNID_CONC, @ISPA_0001, @ISPA_0002, @ISPA_0003, @INPA_ANNO,                  
@INPA_MESE, @IDPA_FECH, @ISNU_ASTO, @ISST_INTE                                          
                                          
/******** APLICACION DE ANTICIPOS (BANCOS) *********/                                          
ELSE IF @ISST_FLAG = 'I61'                                          
 EXEC SP_TTPROC_INTE_I61  @ISCO_EMPR, @ISCO_USUA_MODI, @ISCO_UNID_CONC, @ISPA_0001, @ISPA_0002, @ISPA_0003, @INPA_ANNO,                  
@INPA_MESE, @IDPA_FECH, @ISNU_ASTO, @ISST_INTE                                          
                                  
/******** SOLO MOVIMIENTO CABECERA(EGRESOS) - BANCOS *********/                                          
ELSE IF @ISST_FLAG = 'I26'            
 EXEC SP_TTPROC_INTE_I26  @ISCO_EMPR, @ISCO_USUA_MODI, @ISCO_UNID_CONC, @ISPA_0001, @ISPA_0002, @ISPA_0003, @INPA_ANNO,                  
@INPA_MESE, @IDPA_FECH, @ISNU_ASTO, @ISST_INTE                                 
                                          
/******** INGRESOS MULTIPLES POR BANCOS *********/                                          
ELSE IF @ISST_FLAG = 'I69'                      
 EXEC SP_TTPROC_INTE_I69  @ISCO_EMPR, @ISCO_USUA_MODI, @ISCO_UNID_CONC, @ISPA_0001, @ISPA_0002, @ISPA_0003, @INPA_ANNO,                  
@INPA_MESE, @IDPA_FECH, @ISNU_ASTO, @ISST_INTE                           
                                          
/******** cheques devueltos *********/                                          
ELSE IF @ISST_FLAG = 'I83'                                          
 EXEC SP_TTPROC_INTE_I83  @ISCO_EMPR, @ISCO_USUA_MODI, @ISPA_0001, @ISPA_0002, @ISPA_0003, @INPA_ANNO, @INPA_MESE,                  
@IDPA_FECH, @ISNU_ASTO, @ISST_INTE                                          
                
/******** PAGOS DE DETRACCIONES *********/                         
ELSE IF @ISST_FLAG = 'I88'                                          
 EXEC SP_TTPROC_INTE_I88  @ISCO_EMPR, @ISCO_USUA_MODI, @ISCO_UNID_CONC, @ISPA_0001, @ISPA_0002, @ISPA_0003, @INPA_ANNO,                  
@INPA_MESE, @IDPA_FECH, @ISNU_ASTO, @ISST_INTE                                         
                         
/******** SOLO MOVIMIENTO CABECERA(INGRESOS) - BANCOS *********/                                          
ELSE IF @ISST_FLAG = 'I28'      EXEC SP_TTPROC_INTE_I28  @ISCO_EMPR, @ISCO_USUA_MODI, @ISCO_UNID_CONC, @ISPA_0001,                  
@ISPA_0002, @ISPA_0003, @INPA_ANNO, @INPA_MESE, @IDPA_FECH, @ISNU_ASTO, @ISST_INTE                                          
                                          
/******** DEVOLUCION DE DINERO POR RENDICION DE GASTOS(INGRESOS) - BANCOS *********/                                   
ELSE IF @ISST_FLAG = 'I30'                                          
 EXEC SP_TTPROC_INTE_I30  @ISCO_EMPR, @ISCO_USUA_MODI, @ISCO_UNID_CONC, @ISPA_0001, @ISPA_0002, @ISPA_0003, @INPA_ANNO,                  
@INPA_MESE, @IDPA_FECH, @ISNU_ASTO, @ISST_INTE          
    
ELSE IF @ISST_FLAG = 'I99'    
 EXEC SP_TTPROC_INTE_I99  @ISCO_EMPR, @ISCO_USUA_MODI, @ISCO_UNID_CONC, @ISPA_0001, @ISPA_0002, @ISPA_0003, @INPA_ANNO,                  
@INPA_MESE, @IDPA_FECH, @ISNU_ASTO, @ISST_INTE          
    
                             
                      
                      
/*-------- FIN MODULO BANCOS -------                    
-------*/                                           
                                          
                                          
/*-------- MODULO CAJA --------------*/                                          
                                          
/*----- PAGO DOCUMENTOS PROVEEDORES POR CAJA ------*/                                          
ELSE IF @ISST_FLAG = 'I07'                                          
 EXEC SP_TTPROC_INTE_I07 @ISCO_EMPR,@ISCO_USUA_MODI, @ISPA_0001, @ISPA_0002, @ISPA_0003, @INPA_ANNO, @INPA_MESE, @IDPA_FECH,                  
@ISNU_ASTO, @ISST_INTE                                          
                                          
/*----- INGRESOS POR CAJA (SOLO CABECERA)------*/                                          
ELSE IF @ISST_FLAG = 'I32'                                          
 EXEC SP_TTPROC_INTE_I32 @ISCO_EMPR,@ISCO_USUA_MODI, @ISPA_0001, @ISPA_0002, @ISPA_0003, @INPA_ANNO, @INPA_MESE, @IDPA_FECH,                  
@ISNU_ASTO, @ISST_INTE                                          
                                          
/*----- DEVOLUCI…N ENTREGAS A RENDIR POR CAJA------*/                                          
ELSE IF @ISST_FLAG = 'I34'                                          
 EXEC SP_TTPROC_INTE_I34 @ISCO_EMPR, @ISCO_USUA_MODI, @ISPA_0001, @ISPA_0002, @ISPA_0003, @INPA_ANNO, @INPA_MESE, @IDPA_FECH,                  
@ISNU_ASTO, @ISST_INTE                                          
                                          
/*----- TRANSFERENCIA ENTRE CAJA ------*/                      
ELSE IF @ISST_FLAG = 'I36'                                          
 EXEC SP_TTPROC_INTE_I36 @ISCO_EMPR,@ISCO_USUA_MODI, @ISPA_0001, @ISPA_0002, @ISPA_0003, @INPA_ANNO, @INPA_MESE, @IDPA_FECH,                  
@ISNU_ASTO, @ISST_INTE                                          
                                          
/*----- INGRESOS POR CAJA (SOLO CABECERA)------*/                                          
ELSE IF @ISST_FLAG = 'I57'                                          
 EXEC SP_TTPROC_INTE_I57 @ISCO_EMPR, @ISCO_USUA_MODI,@ISPA_0001, @ISPA_0002, @ISPA_0003, @INPA_ANNO, @INPA_MESE, @IDPA_FECH,                  
@ISNU_ASTO, @ISST_INTE                                          
                                          
/*----- TRANSFERENCIA DE CAJA A BANCOS ------*/                                          
ELSE IF @ISST_FLAG = 'I63'                                          
 EXEC SP_TTPROC_INTE_I63 @ISCO_EMPR,@ISCO_USUA_MODI, @ISPA_0001, @ISPA_0002, @ISPA_0003, @INPA_ANNO, @INPA_MESE, @IDPA_FECH,                  
@ISNU_ASTO, @ISST_INTE                                          
                      
/*----- PAGOS MULTIPLES POR CAJA------*/                                
ELSE IF @ISST_FLAG = 'I77'                                          
 EXEC SP_TTPROC_INTE_I77 @ISCO_EMPR,@ISCO_USUA_MODI, @ISPA_0001, @ISPA_0002, @ISPA_0003, @INPA_ANNO, @INPA_MESE, @IDPA_FECH,                  
@ISNU_ASTO, @ISST_INTE                                          
                                          
/*----- INGRESOS MULTIPLES POR CAJA------*/                                          
ELSE IF @ISST_FLAG = 'I79'                                          
 EXEC SP_TTPROC_INTE_I79 @ISCO_EMPR, @ISCO_USUA_MODI, @ISPA_0001, @ISPA_0002, @ISPA_0003, @INPA_ANNO, @INPA_MESE, @IDPA_FECH,                  
@ISNU_ASTO, @ISST_INTE                                          
                      
/*----- ENTREGA A RENDIR POR CAJA ------*/                                          
ELSE IF @ISST_FLAG = 'I41'                                          
 EXEC SP_TTPROC_INTE_I41 @ISCO_EMPR, @ISCO_USUA_MODI, @ISPA_0001, @ISPA_0002, @ISPA_0003,  @INPA_ANNO, @INPA_MESE,                  
@IDPA_FECH, @ISNU_ASTO, @ISST_INTE                                          
                                          
/*----- COBRANZA DOCUMENTOS POR CAJA ------*/                                          
ELSE IF @ISST_FLAG = 'I44'                    
 EXEC SP_TTPROC_INTE_I44 @ISCO_EMPR,@ISCO_USUA_MODI, @ISPA_0001, @ISPA_0002, @ISPA_0003, @INPA_ANNO, @INPA_MESE, @IDPA_FECH,                  
@ISNU_ASTO, @ISST_INTE                                       
                    
/*----- DEVOLUCION DE ANTICIPOS A  PROVEE POR CAJA ------*/                                          
ELSE IF @ISST_FLAG = 'I91'                                          
 EXEC SP_TTPROC_INTE_I91 @ISCO_EMPR,@ISCO_USUA_MODI, @ISPA_0001, @ISPA_0002, @ISPA_0003, @INPA_ANNO, @INPA_MESE, @IDPA_FECH,                  
@ISNU_ASTO, @ISST_INTE                                          
                                        
/*-------- FIN MODULO CAJA --------------*/                                          
                                          
                                          
/*-------- MODULO CUENTAS POR COBRAR ---------*/                                          
                           
/******** PROVISION CUENTAS POR COBRAR *********/                                          
ELSE IF @ISST_FLAG = 'I59'                                          
 EXEC SP_TTPROC_INTE_I59  @ISCO_EMPR,@ISCO_USUA_MODI, @ISPA_0001, @ISPA_0002,                    
 @ISPA_0003, @INPA_ANNO, @INPA_MESE, @IDPA_FECH, @ISNU_ASTO, @ISST_INTE                                          
                           
/******** PROVISIONES CUENTAS POR COBRAR *********/                                          
ELSE IF @ISST_FLAG = 'I62'                                          
 EXEC SP_TTPROC_INTE_I62  @ISCO_EMPR,@ISCO_USUA_MODI, @ISPA_0001, @ISPA_0002, @ISPA_0003, @INPA_ANNO, @INPA_MESE, @IDPA_FECH,                  
@ISNU_ASTO, @ISST_INTE                                
                                          
/*----- CANJE DOCUMENTOS POR LETRAS CLIENTES ------*/                                          
ELSE IF @ISST_FLAG = 'I16'                                          
 EXEC SP_TTPROC_INTE_I16 @ISCO_EMPR,@ISCO_USUA_MODI, @ISPA_0001, @ISPA_0002, @ISPA_0003, @INPA_ANNO, @INPA_MESE, @IDPA_FECH,                  
@ISNU_ASTO, @ISST_INTE                                          
                                          
/*----- RENOVACION DOCUMENTOS POR LETRAS CLIENTES ------*/                                          
ELSE IF @ISST_FLAG = 'I50'                                          
 EXEC SP_TTPROC_INTE_I50 @ISCO_EMPR,@ISCO_USUA_MODI, @ISPA_0001, @ISPA_0002, @ISPA_0003, @INPA_ANNO, @INPA_MESE, @IDPA_FECH,                  
@ISNU_ASTO, @ISST_INTE                                          
                                          
/*----- APLICACION NOTA DE CREDITO CLIENTES ------*/                                          
ELSE IF @ISST_FLAG = 'I21'                                          
 EXEC SP_TTPROC_INTE_I21 @ISCO_EMPR, @ISCO_USUA_MODI, @ISPA_0001, @ISPA_0002, @ISPA_0003, @INPA_ANNO, @INPA_MESE, @IDPA_FECH,                  
@ISNU_ASTO, @ISST_INTE                                          
                                          
/*----- GENERACION LETRAS ADELANTADAS ------*/                                 
ELSE IF @ISST_FLAG = 'I81'                                          
 EXEC SP_TTPROC_INTE_I81 @ISCO_EMPR, @ISCO_USUA_MODI, @ISPA_0001, @ISPA_0002, @ISPA_0003, @INPA_ANNO, @INPA_MESE, @IDPA_FECH,                  
@ISNU_ASTO, @ISST_INTE                                          
                                          
/*----- ANTICIPOS DE LETRAS ------*/                                          
ELSE IF @ISST_FLAG = 'I82'                                          
 EXEC SP_TTPROC_INTE_I82 @ISCO_EMPR,@ISCO_USUA_MODI, @ISPA_0001, @ISPA_0002, @ISPA_0003, @INPA_ANNO, @INPA_MESE, @IDPA_FECH,                  
@ISNU_ASTO, @ISST_INTE                                          
                                          
/*----- CAMBIO ESTADO DE DOCUMENTOS ------*/                                          
ELSE IF @ISST_FLAG = 'I71'                                          
 EXEC SP_TTPROC_INTE_I71 @ISCO_EMPR, @ISCO_USUA_MODI, @ISPA_0001, @ISPA_0002, @ISPA_0003, @INPA_ANNO, @INPA_MESE, @IDPA_FECH,                  
@ISNU_ASTO, @ISST_INTE                                          
                                          
/*----- RENOVACION DE DOC'S CLIENTES ------*/                                          
ELSE IF @ISST_FLAG = 'I85'                                          
 EXEC SP_TTPROC_INTE_I85 @ISCO_EMPR,@ISCO_USUA_MODI, @ISPA_0001, @ISPA_0002, @ISPA_0003, @INPA_ANNO, @INPA_MESE, @IDPA_FECH,                  
@ISNU_ASTO, @ISST_INTE                                          
                                          
/*----- ANULACION LETRA DE UNA RENOVACION ------*/                                          
ELSE IF @ISST_FLAG = 'I86'                                          
 EXEC SP_TTPROC_INTE_I86 @ISCO_EMPR,@ISCO_USUA_MODI, @ISPA_0001, @ISPA_0002, @ISPA_0003, @INPA_ANNO, @INPA_MESE, @IDPA_FECH,                  
@ISNU_ASTO, @ISST_INTE                                          
                   
ELSE IF @ISST_FLAG = 'I87'                                          
 EXEC SP_TTPROC_INTE_I87 @ISCO_EMPR,@ISCO_USUA_MODI, @ISPA_0001, @ISPA_0002, @ISPA_0003, @INPA_ANNO, @INPA_MESE, @IDPA_FECH,                  
@ISNU_ASTO, @ISST_INTE                                          
                                          
    
/*-------- FIN MODULO CUENTAS POR COBRAR ---------*/                  
                                          
                                          
/*-------- MODULO CUENTAS POR PAGAR ---------*/                                          
                                          
/*------- PROVISION DE DOC'S PROVEEDOR ------------*/                                          
ELSE IF @ISST_FLAG = 'I02'                                          
 EXEC SP_TTPROC_INTE_I02  @ISCO_EMPR,@ISCO_USUA_MODI, @ISPA_0001, @ISPA_0002, @ISPA_0003, @INPA_ANNO, @INPA_MESE, @IDPA_FECH,                  
@ISNU_ASTO, @ISST_INTE                                          
                                          
/*----- CANJE DOCUMENTOS PROVEEDORES------*/                                          
ELSE IF @ISST_FLAG = 'I08'                                          
 EXEC SP_TTPROC_INTE_I08 @ISCO_EMPR,@ISCO_USUA_MODI, @ISPA_0001, @ISPA_0002, @ISPA_0003, @INPA_ANNO,                     
@INPA_MESE, @IDPA_FECH, @ISNU_ASTO, @ISST_INTE                                          
  
   /*           
/*----- CANJE DOCUMENTOS PROVEEDORES (LIQUIDACION DE IMPORTACIONES - COEXA)------*/                                          
ELSE IF @ISST_FLAG = 'I09'                                          
 EXEC SP_TTPROC_INTE_I09 @ISCO_EMPR,@ISCO_USUA_MODI, @ISPA_0001, @ISPA_0002, @ISPA_0003, @INPA_ANNO,                     
@INPA_MESE, @IDPA_FECH, @ISNU_ASTO, @ISST_INTE                                          
  
        */                                  
/******** DEVUOLUICION ANTICIPOS PROVEEDORES POR BANCOS *********/                                        
ELSE IF @ISST_FLAG = 'I73'                                          
 EXEC SP_TTPROC_INTE_I73  @ISCO_EMPR, @ISCO_USUA_MODI, @ISCO_UNID_CONC, @ISPA_0001, @ISPA_0002, @ISPA_0003, @INPA_ANNO,                  
@INPA_MESE, @IDPA_FECH, @ISNU_ASTO, @ISST_INTE                                          
                                          
/******** INGRESO CHEQUES DELSE IFERIDOS  *********/                                          
ELSE IF @ISST_FLAG = 'I68'                                          
 EXEC SP_TTPROC_INTE_I68  @ISCO_EMPR, @ISCO_USUA_MODI, @ISCO_UNID_CONC, @ISPA_0001, @ISPA_0002, @ISPA_0003, @INPA_ANNO,                  
@INPA_MESE, @IDPA_FECH, @ISNU_ASTO, @ISST_INTE                             
                                          
/*----- RENOVACION DOCUMENTOS PROVEEDORES------*/                                          
ELSE IF @ISST_FLAG = 'I48'                                          
 EXEC SP_TTPROC_INTE_I48 @ISCO_EMPR, @ISCO_USUA_MODI, @ISPA_0001, @ISPA_0002, @ISPA_0003, @INPA_ANNO, @INPA_MESE, @IDPA_FECH,                  
@ISNU_ASTO, @ISST_INTE                                          
                                          
/*----- APLICACION ANTICIPOS PROVEEDORES------*/                                          
ELSE IF @ISST_FLAG = 'I52'                                          
 EXEC SP_TTPROC_INTE_I52 @ISCO_EMPR, @ISCO_USUA_MODI,@ISPA_0001, @ISPA_0002, @ISPA_0003, @INPA_ANNO, @INPA_MESE, @IDPA_FECH,                  
@ISNU_ASTO, @ISST_INTE                                          
                                          
/*----- APLICACION NOTAS DE CREDITO PROVEEDORES------*/                                          
ELSE IF @ISST_FLAG = 'I18'                                          
 EXEC SP_TTPROC_INTE_I18 @ISCO_EMPR,@ISCO_USUA_MODI, @ISPA_0001, @ISPA_0002, @ISPA_0003, @INPA_ANNO, @INPA_MESE, @IDPA_FECH,                  
@ISNU_ASTO, @ISST_INTE                                          
                      
/*----- RENDICION GASTOS POR BANCO------*/                                          
ELSE IF @ISST_FLAG = 'I46'                                          
 EXEC SP_TTPROC_INTE_I46 @ISCO_EMPR,@ISCO_USUA_MODI, @ISPA_0001, @ISPA_0002, @ISPA_0003, @INPA_ANNO, @INPA_MESE, @IDPA_FECH,                  
@ISNU_ASTO, @ISST_INTE                                          
                                          
/*----- RENDICION GASTOS POR CAJA------*/                                          
ELSE IF @ISST_FLAG = 'I10'                                          
 EXEC SP_TTPROC_INTE_I10 @ISCO_EMPR, @ISCO_USUA_MODI,@ISPA_0001, @ISPA_0002, @ISPA_0003, @INPA_ANNO, @INPA_MESE, @IDPA_FECH,                  
@ISNU_ASTO, @ISST_INTE                                          
                                          
/*----- COMPROMISOS DE PAGO ------*/                                          
ELSE IF @ISST_FLAG = 'I84'                                          
 EXEC SP_TTPROC_INTE_I84 @ISCO_EMPR, @ISCO_USUA_MODI, @ISPA_0001, @ISPA_0002, @ISPA_0003, @INPA_ANNO, @INPA_MESE, @IDPA_FECH,                  
@ISNU_ASTO, @ISST_INTE           
        
/*----- NOTA CONTABLE X PAGAR ------*/                                          
ELSE IF @ISST_FLAG = 'I92'                                          
 EXEC SP_TTPROC_INTE_I92 @ISCO_EMPR, @ISCO_USUA_MODI, @ISPA_0001, @ISPA_0002, @ISPA_0003, @INPA_ANNO, @INPA_MESE, @IDPA_FECH,                  
@ISNU_ASTO, @ISST_INTE         
      
/*----- NOTA CONTABLE X COBRAR ------*/                                          
ELSE IF @ISST_FLAG = 'I93'                                          
 EXEC SP_TTPROC_INTE_I93 @ISCO_EMPR, @ISCO_USUA_MODI, @ISPA_0001, @ISPA_0002, @ISPA_0003, @INPA_ANNO, @INPA_MESE, @IDPA_FECH,                  
@ISNU_ASTO, @ISST_INTE                                       
                  
 /*----- NOTA CONTABLE X COBRAR ------*/                                          
ELSE IF @ISST_FLAG = 'I94'                                          
  EXEC SP_TTPROC_INTE_I94 @ISCO_EMPR, @ISCO_USUA_MODI, @ISPA_0001, @ISPA_0002, @ISPA_0003, @INPA_ANNO, @INPA_MESE, @IDPA_FECH,                  
@ISNU_ASTO, @ISST_INTE  
                  
If @ISST_INTE = 'S'                                  
  BEGIN                                          
  -- DIF DE CAMBIO                                          
  EXEC OFICONT..SP_TXMVTO_CNTB_I43 @ISCO_EMPR,@ISCO_USUA_MODI,@VDFE_USUA_MODI, 1, @ISCO_UNID_CONC, @VSCO_OPRC_CONT,                  
@INPA_ANNO, @INPA_MESE, @VSNU_ASTO_0001                                              
                                               
  -- GESTION                                          
  EXEC OFICONT..SP_TXMVTO_CNTB_I25 @ISCO_EMPR, @ISCO_USUA_MODI, @VDFE_USUA_MODI, 1, @ISCO_UNID_CONC, @VSCO_OPRC_CONT,                  
@INPA_ANNO, @INPA_MESE, @VSNU_ASTO_0001                                          
  END   
  
GO
